my $file = $ARGV[0];

open Input, "<$file" or die"cannot open $file\n";
open Output, ">num$file" or die "ddd";
$number = 0;
while(<Input>){
	chomp;
	@rs = split;
	
	print Output "$number $_\n";
	$number++;
}

close Input;
close Output;